Tempo de horário eleitoral disponÃvel para cada candidato e voto
gráfico de linhas condidatos a prefeitura de campos
Principais assuntos das eleicoes municÃpais de 2020
gráfico de linha com o percentual de votos de acordo com as pesquisas eleitorais
banco_intencao %>%
filter(candidato %in% c("Wladimir Garotinho", "Caio Vianna", "Rafael Diniz", "Dr. Bruno Calil",
"Brancos/Nulos", "Professora Natália")) %>%
# mutate(data = case_when(data == "29/09/2020" ~ 2909,
# data == "29/10/2020" ~ 2910,
# data == "08/11/2020" ~ 0811)) %>%
ggplot(aes(x=data, y=percentual, fill = candidato, col = candidato))+
geom_line(stat ="identity", size = 1.5)+
geom_point(size= 2.5, alpha = 0.8)+
#scale_x_continuous(breaks = c("29.09", "29.10", "08.11"))+
scale_y_continuous(labels=function(x) paste0(x,"%"))+
scale_colour_manual(values = c("#6794a7", "#014d64" ,"#76c0c1" ,"#01a2d9", "#7ad2f6", "#00887d"))+
theme_fivethirtyeight()+
ylab("Total de canddidatos") +
labs(title = "Intencão de voto", x = NULL, y = NULL, fill = NULL, col = NULL)+
theme(axis.title.x = element_text(size = 10),
axis.text.y = element_text(size = 10),
axis.text.x = element_text(size = 10),
title = element_text(size = 10),
panel.background = element_rect(fill = "white", colour = "white", color = "white"),
plot.background = element_rect(fill = "white", colour = "white", color = "white"),
legend.background=element_rect(fill="white"),
legend.key = element_rect(fill = "white", color = "white"),
strip.background=element_rect(fill="white", colour="white"),
panel.grid.major.x = element_line(colour= "#eceff2"),
panel.grid.major.y = element_line(colour= "#eceff2"))
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
grafico de linha histórico polÃtico de campos
banco_familia %>%
# filter(candidato %in% c("Anthony Garotinho", "Sérgio Mendes", "Arnaldo Vianna", "Carlos Campista", "Rosinha Garotinho", "Rafael Diniz", "Wladimir Garotinho")) %>%
ggplot(aes(x=as_factor(ano_eleitoral), y=percent_votos, col = apoiador, group = line_x))+
geom_line(stat = "identity", color = "#6794a7", size = 1.2, alpha = 0.7)+
geom_point(size= 1.5, color = "#6794a7", alpha = 0.7)+
geom_label_repel(aes(label = candidato),
size = 3,
box.padding = 0.35,
point.padding = 0.5)+
scale_y_continuous(labels=function(x) paste0(x,"%"))+
#scale_x_continuous(breaks = c(2004,2008,2012,2016,2020))+
theme_fivethirtyeight()+
ylab("Votos")+
labs(title = "Histórico polÃtico de Campos dos Goytacazes", x = NULL, col = "Grupo famÃliar")+
theme(axis.text.y = element_text(size = 11),
axis.title.y = element_text(size = 11),
axis.title.x = element_text(size = 10),
axis.text.x = element_text(size = 11),
legend.text = element_text(size = 14),
title = element_text(size = 10),
panel.background = element_rect(fill = "white", colour = "white", color = "white"),
plot.background = element_rect(fill = "white", colour = "white", color = "white"),
legend.background=element_rect(fill="white"),
legend.key = element_rect(fill = "white", color = "white"),
strip.background=element_rect(fill="white", colour="white"),
panel.grid.major.x = element_line(colour= "#eceff2"),
panel.grid.major.y = element_line(colour= "#eceff2"))
código certo - histórico polÃtico
## Warning: Ignoring unknown aesthetics: grpup
## Warning: Ignoring unknown aesthetics: grpup
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
intencao de votos e margem de erro
## Warning: Duplicated aesthetics after name standardisation: size
## Warning: position_dodge requires non-overlapping x intervals
